_pos = getpos device_open;
_dir = getdir device_open;
device_open setpos getpos shadow;
//deletevehicle device_open;
//device_closed = "Land_Device_assembled_F" createvehicle (position shadow);
device_closed setpos _pos;
device_closed setdir _dir;